DEFINITION MODULE TimeDate;

(* (C) Copyright 1987,1988 Fitted Software Tools. All rights reserved. *)


TYPE
    Time =  RECORD
                day, minute, millisec :CARDINAL;
                (*
                    day = ((Year - 1900) * 16 + Month) * 32 + DayOfTheMonth
                    minute = minutes since midnight
                    millisec = milliseconds past the minute
                *)
            END;

PROCEDURE GetTime( VAR time :Time );
(*
    get the system time
*)

PROCEDURE SetTime( time :Time );
(*
    set the system time
*)

END TimeDate.